Chip 2005 June/CHIP_CD_2005-06.iso/test/fruity/flstudio502_install.exe/Fruity Keyboard Controller.dll/0/RCDATA/TSYNTHEDITORFORM/TSYNTHEDITORFORM.txt

Text File | 2003-07-20 | 4.6 KB | 192 lines

object SynthEditorForm: TSynthEditorForm
  Left = 195
  Top = 106
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'SynthForm'
  ClientHeight = 102
  ClientWidth = 241
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefault
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SynthPanel: TWPControl
    Left = 0
    Top = 0
    Width = 241
    Height = 102
    Align = alClient
    Color = 5656647
    ParentColor = False
    ParentShowHint = True
    object NoteValueWheel: TLineWheel
      Tag = -1
      Left = 73
      Top = 12
      Width = 13
      Height = 13
      Hint = '|Value for current key'
      Options = [wwBigLine]
      MoveSpeed = 4096
      SlowMotionDiv = 16
      Max = 65536
      OnChange = NoteValueWheelChange
      MouseButton = mbLeft
      HotSideX = 10
      HotSideY = 10
      LineColor = 14275530
      LinePressedColor = 33023
      LineThickness = 1
    end
    object SpeedWheel: TLineWheel
      Left = 214
      Top = 12
      Width = 13
      Height = 13
      Hint = '|^b^aSmoothing envelope time'
      Options = [wwBigLine]
      MoveSpeed = 16
      SlowMotionDiv = 4
      Max = 256
      Value = 32
      DefaultValue = 32
      OnChange = CutoffWheelChange
      MouseButton = mbLeft
      HotSideX = 10
      HotSideY = 10
      PopupMenu = SynthResModule.WheelMenu
      StartOffset = 0.150000005960464500
      LineColor = 14275530
      LinePressedColor = 33023
      LineThickness = 1
    end
    object NoteLabel: TQuickLabel
      Left = 36
      Top = 13
      Width = 20
      Height = 11
      Hint = '|Current key'
      Alignment = taRightJustify
      Options = [loTransparent, loNoFlicker, loEndEllipsis]
      Caption = 'C5'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10992361
      Font.Height = -9
      Font.Name = 'Fruity Fonts'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MapBtn: TQuickBtn
      Tag = -1
      Left = 13
      Top = 10
      Width = 11
      Height = 16
      Cursor = crHandPoint
      Hint = '|Auto mapping (select keyzone)'
      ParentColor = False
      Color = 6709335
      ShowHint = True
      ParentShowHint = False
      PopupMenu = SynthResModule.MapMenu
      Options = [tbHasDownGlyph]
      AccelKey = 0
      Glyph.ILCount = 2
      BmpList = SynthResModule.MenuBtnIL
      StayDown = False
      PopupAlign = Popup_Bottom
      PopupButton = mbLeft
      BeforePopup = MapBtnBeforePopup
    end
    object AutoRelBox: TQuickCheckBox
      Tag = -1
      Left = 102
      Top = 11
      Width = 42
      Height = 16
      Cursor = crHandPoint
      Hint = '|Auto release (when no key is pressed)'
      ParentFont = False
      ParentColor = True
      Font.Charset = ANSI_CHARSET
      Font.Color = 11380895
      Font.Height = -9
      Font.Name = 'Fruity fonts'
      Font.Style = []
      Options = [tbDirectClick, tbHasDownGlyph, tbTransparent]
      Style = FS_Transparent
      AccelKey = 0
      FXType = FX_Blend
      Glyph.ILCount = 2
      BmpList = SynthResModule.BigLEDIL
      OnClick = AutoRelBoxClick
    end
    object AutoRelWheel: TLineWheel
      Tag = -2
      Left = 155
      Top = 12
      Width = 13
      Height = 13
      Hint = '|Value for auto release'
      Options = [wwBigLine]
      MoveSpeed = 4096
      SlowMotionDiv = 16
      Max = 65536
      OnChange = NoteValueWheelChange
      MouseButton = mbLeft
      HotSideX = 10
      HotSideY = 10
      LineColor = 14275530
      LinePressedColor = 33023
      LineThickness = 1
    end
    object KeybPanel: TQuickScrollBox
      Tag = -1
      Left = 0
      Top = 40
      Width = 241
      Height = 62
      BorderStyle = bsNone
      ScrollerSize = 15
      ScrollerColor = 5656647
      HMax = 699
      HPos = 233
      VPos = 0
      Align = alBottom
      ParentColor = False
      Color = 5656647
      object MIDIKb: TQuickMIDIKbEx
        Left = -233
        Top = 0
        Width = 701
        Height = 64
        Cursor = crHandPoint
        Hint = '|Current key / valid key zone'
        KbBmpList = SynthResModule.TestKbIL
        MaxKey = 119
        OnMouseMove = MIDIKbMouseMove
        OnNoteOn = MIDIKbNoteOn
        OnNoteOff = MIDIKbNoteOff
        LayerMinKey = 48
        LayerMaxKey = 71
        GutterSize = 8
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -8
        Font.Name = 'Fruity microfont'
        Font.Style = []
        Color = 12301226
        OnLayerChange = MIDIKbLayerChange
      end
    end
  end
end